This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Cmd+Shift+Enter.

####Interaactive Map
tmap_mode('view')
tmap mode set to interactive viewing
tm_shape(af_2) +
  tm_fill("white",popup.vars=c("County"="cnty_nm","Tract"="NAMELSA","R/ECAPS Status"="rcp_crr","Poverty Rate (%)"="pct_por","Moran I"="lI","G-Stat"="lG", "Affordable Units"="hh_ffr_",  "p-value"="pvalue")) +
  tm_borders("grey", lwd = 0.5)+tm_shape(af_2.sub)+tm_polygons("lI", title = "Clustering", palette = "PRGn",
              style = "kmeans",
              legend.hist = T,popup.vars=c("County"="cnty_nm","Tract"="NAMELSA","R/ECAPS Status"="rcp_crr","Poverty Rate (%)"="pct_por","Moran I"="lI","G-Stat"="lG", "Affordable Units"="hh_ffr_",  "p-value"="pvalue")) +
  tm_layout(frame = F, title = "Moran's I p-values<=.05",  
            legend.hist.size = 0.5, 
            legend.outside = T)


tmap_mode("plot")
tmap mode set to plotting

Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Cmd+Option+I.

When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Cmd+Shift+K to preview the HTML file).

The preview shows you a rendered HTML copy of the contents of the editor. Consequently, unlike Knit, Preview does not run any R code chunks. Instead, the output of the chunk when it was last run in the editor is displayed.

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhpcyBpcyBhbiBbUiBNYXJrZG93bl0oaHR0cDovL3JtYXJrZG93bi5yc3R1ZGlvLmNvbSkgTm90ZWJvb2suIFdoZW4geW91IGV4ZWN1dGUgY29kZSB3aXRoaW4gdGhlIG5vdGVib29rLCB0aGUgcmVzdWx0cyBhcHBlYXIgYmVuZWF0aCB0aGUgY29kZS4gCgpUcnkgZXhlY3V0aW5nIHRoaXMgY2h1bmsgYnkgY2xpY2tpbmcgdGhlICpSdW4qIGJ1dHRvbiB3aXRoaW4gdGhlIGNodW5rIG9yIGJ5IHBsYWNpbmcgeW91ciBjdXJzb3IgaW5zaWRlIGl0IGFuZCBwcmVzc2luZyAqQ21kK1NoaWZ0K0VudGVyKi4gCgpgYGB7cn0KbGlicmFyeShkcGx5cikKbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkoY293cGxvdCkKbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KHBseXIpCmxpYnJhcnkocmVzaGFwZTIpCmxpYnJhcnkodGlkeWNlbnN1cykKbGlicmFyeSh0aWdyaXMpCmxpYnJhcnkoc2YpCmxpYnJhcnkobGVhZmxldCkKbGlicmFyeSh0bWFwKQoKb3B0aW9ucyhzY2lwZW49OTk5KQoKIyMjQ2Vuc3VzIEFQSSBFeGFtcGxlCgojY2Vuc3VzX2FwaV9rZXkoIkFQSSBLRVkiKQoKI2NhLnRyYWN0cyA8LSBnZXRfYWNzKGdlb2dyYXBoeSA9ICJ0cmFjdCIsIAojICAgICAgICAgICAgICB5ZWFyID0gMjAxOSwKIyAgICAgICAgICAgICAgdmFyaWFibGVzID0gYyh0cG9wciA9ICJCMDMwMDJfMDAxIiwgCiMgICAgICAgICAgICAgICAgICAgICAgICAgICAgbmh3aGl0ZSA9ICJCMDMwMDJfMDAzIiwgbmhibGsgPSAiQjAzMDAyXzAwNCIsIAojICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5oYXNuID0gIkIwMzAwMl8wMDYiLCBoaXNwID0gIkIwMzAwMl8wMTIiLAojICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRvdGhocyA9ICJCMTEwMDFfMDAxIiksIAojICAgICAgICAgICAgICBzdGF0ZSA9ICJDQSIsCiMgICAgICAgICAgICAgIHN1cnZleSA9ICJhY3M1IiwKIyAgICAgICAgICAgICAgZ2VvbWV0cnkgPSBUUlVFKQoKI2dsaW1wc2UoY2EudHJhY3RzKQoKIyMjI0hvdXNpbmcgRGF0YSBBbmFseXNpcyMjIwoKc2V0d2QoJy9Vc2Vycy9qYW1lcy9EZXNrdG9wL0Rlc2t0b3BfRGF0YXNldHMvQ2VudGVyX2Zvcl9Ib3VzaW5nX0RhdGFfUHJvamVjdC9BRkZIVDAwMDYnKQoKCiMjIyNBZmZpcm1hdGl2ZWx5IEZ1cnRoZXIgRmFpciBIb3VzaW5nIChBRkZIKSBEYXRhIEFuYWx5c2lzIyMjCgojIyNDZW5zdXMgRmlsZQpBRkZIX3RyYWN0X0FGRkhUMDAwNl9KdWx5MjAyMDwtcmVhZC5jc3YoIkFGRkhfdHJhY3RfQUZGSFQwMDA2X0p1bHkyMDIwLmNzdiIpCgojIyMjR2V0IE1hc3NhY2h1c2V0dHMgU2hhcGUgZmlsZXMgdXNpbmcgVElHUklTOgojIyNUaWdyaXMgU3RhdGUgU2hhcGUgRmlsZXMgKFRyYWN0cyBFeGFtcGxlKQpNQV9UcmFjdHM8LXRyYWN0cygiTUEiLCB5ZWFyPTIwMjApCgojIyNDTEFTUzogc2YgRGF0YWZyYW1lCmNsYXNzKE1BX1RyYWN0cykKCiMjIyNHZXQgb25seSBNYXNzYWNodXNldHRzIERhdGEgZnJvbSBBRkZIIENlbnN1cyBUcmFjdCBEYXRhCkFGRkhfTUFfdHJhY3Q8LWZpbHRlcihBRkZIX3RyYWN0X0FGRkhUMDAwNl9KdWx5MjAyMCwgc3RhdGVfbmFtZT09Ik1hc3NhY2h1c2V0dHMiKQoKIyMjQ0hBTkdFIGdlb2lkIHRvIGNoYXJhY3RlciB0byBtYXRjaDoKQUZGSF9NQV90cmFjdCRnZW9pZDwtYXMuY2hhcmFjdGVyKEFGRkhfTUFfdHJhY3QkZ2VvaWQpCgpjbGFzcyhBRkZIX01BX3RyYWN0KQoKIyMjI0NvbWJpbmUgQ2Vuc3VzIERhdGEgd2l0aCBTaGFwZSBJbmZvcm1hdGlvbjoKCkFGRkhfTUFfdHJhY3Rfc2hwPC0gbGVmdF9qb2luKEFGRkhfTUFfdHJhY3QsIE1BX1RyYWN0cywgYnkgPSBjKCJnZW9pZCIgPSAiR0VPSUQiKSkKCiMjI0RhdGFmcmFtZSAKY2xhc3MoQUZGSF9NQV90cmFjdF9zaHApCgojIyMjQUZGT1JEQUJMRSBSRU5UQUwgSE9VU0lORyBVTklUUyBBTkFMWVNJUwoKI0luZGljYXRvcnMgb2YgSW50ZXJlc3Q6IFBvdmVydHkgUmF0ZSBvZiAyNSUgb3IgbW9yZTogcGN0X3Bvb3IsIEN1cnJlbnQgUmVDQVAgRmxhZyAoUmFjaWFsbHkgb3IgRXRobmljYWxseSBDb25jZW50cmF0ZWQgQXJlYXMgb2YgUG92ZXJ0eSk6IFJDQVBfY3VycmVudDsKI1RvdGFsIEhvdXNlcyB3aXRoIFNldmVyZSBDb3N0IEJ1cmRlbjogaGhfYWxsX3NldmVyZV9idXJkZW47IEFmZm9yZGFibGUgUmVudGFsIFVuaXRzOmhoX2FmZm9yZGFibGVfcmVudGVycy4gCgoKIyMjI1JlZHVjZSBEYXRhIHRvIEdlb21ldHJ5IGFuZCBBZmZvcmRhYmxlIFJlbnRlciBVbml0czoKbXl2YXJzIDwtIG5hbWVzKEFGRkhfTUFfdHJhY3Rfc2hwKSAlaW4lIGMoImdlb2lkIiwiTkFNRUxTQUQiLCAiaGhfYWZmb3JkYWJsZV9yZW50ZXJzIiwgInBjdF9wb29yIiwgInJjYXBfY3VycmVudCIsICJoaF9hbGxfc2V2ZXJlX2J1cmRlbiIsImNvdW50eV9uYW1lIiwgImdlb21ldHJ5IikgCkFmZm9yZGFibGU8LSBBRkZIX01BX3RyYWN0X3NocFtteXZhcnNdCgpzdF9nZW9tZXRyeShzdF9hc19zZihBZmZvcmRhYmxlKSkgJT4lIHBsb3QoKQoKQWZmb3JkYWJsZV9zZjwtc3RfYXNfc2YoQWZmb3JkYWJsZSkKCmNsYXNzKEFmZm9yZGFibGVfc2YpCgojIyNDcmVhdGUgU2hhcGUgRmlsZQoKIyMjV3JpdGUgdG8gU2hhcGUgRmlsZQpzdF93cml0ZShBZmZvcmRhYmxlX3NmLCAiQWZmb3JkYWJsZV9zZjIuc2hwIiwgZHJpdmVyPSJFU1JJIFNoYXBlZmlsZSIsIGRlbGV0ZV9sYXllcj1UKQpBZmZvcmRhYmxlX3NmMiA8LXN0X3JlYWQoIkFmZm9yZGFibGVfc2YyLnNocCIpCgoKIyMjQ1JFQVRFIFBMT1QgQU5EIFdSSVRFIFRPIFBORwp0bWFwX21vZGUoInBsb3QiKQojIyNXcml0ZSB0byBQTkcKI3BuZygiQWZmb3JkYWJsZS5wbmciLCB3aWR0aCA9IDIwLCBoZWlnaHQgPSAyMCwgdW5pdHMgPSAnaW4nLCByZXMgPSA2MDApCgojIyNUTUFQOiBNZWRpYW4gSW5jb21lIFVzaW5nIFNGIEZpbGUKCnF0bShBZmZvcmRhYmxlX3NmMiwgZmlsbD0iaGhfZmZyXyIsIAogICAgZm9ybWF0PSJXb3JsZF93aWRlIiwgc3R5bGU9ImNsYXNzaWMiLCAKICAgIHRleHQucm9vdD01LCBmaWxsLnRpdGxlPSJBZmZvcmRhYmxlIEhvdXNpbmcgVW5pdHMiKSt0bV9sYXlvdXQodGl0bGU9Ik1hc3NhY2h1c2V0dHMgQWZmb3JkYWJsZSBIb3VzaW5nIix0aXRsZS5zaXplPTEuNiwKICAgICAgICAgIGxlZ2VuZC50aXRsZS5zaXplID0gMS40LAogICAgICAgICAgbGVnZW5kLnRleHQuc2l6ZSA9IC44LAogICAgICAgICAgbGVnZW5kLnBvc2l0aW9uID0gYygibGVmdCIsImJvdHRvbSIpLAogICAgICAgICAgbGVnZW5kLmJnLmNvbG9yID0gIndoaXRlIiwKICAgICAgICAgIGxlZ2VuZC5iZy5hbHBoYSA9IDEpCgojIyMjRW5kIFBuZyBXcml0ZQojZGV2Lm9mZigpCgoKCiMjIyNQRVJGT1JNIENMVVNURVIvU1BBVElBTCBBU1NPQ0lBVElPTiBBTkFMWVNJUyBXSVRIIExPQ0FMIE1PUkFOUyBJIGFuZCBHLVN0YXRpc3RpYwoKbGlicmFyeShzcGRlcCkKCgojI1JlbW92ZSBFbXB0eSBEYXRhIEZyYW1lcyB0byBBbGxvdyBmb3IgQ29udmVyc2lvbgphZl8yIDwtQWZmb3JkYWJsZV9zZjJbICEgc3RfaXNfZW1wdHkoIEFmZm9yZGFibGVfc2YyKSAsIF0KCiMjI0NvbnZlcnQKYWZfMi5zcCA8LSBhc19TcGF0aWFsKCBhZl8yICkKCiMgQ3JlYXRlIE5CIE9iamVjdApsdyA8LXBvbHkybmIoYWZfMi5zcCkKbHcgPC0gbmIybGlzdHcobHcsIHplcm8ucG9saWN5PVRSVUUpCgoKIyMjQ2FsY3VsYXRlIGxvY2FsIEcgYW5kIEFkZCBhcyBhIENvbHVtbgpsRyA8LSBsb2NhbEcoYWZfMiRoaF9mZnJfLGx3KQphZl8yJGxHIDwtIGxHCgojIyMjQ2FsY3VsYXRlIExvY2FsIE1vcmFuIGFuZCBBZGQgYXMgYSBDb2x1bW4KbEkgPC0gbG9jYWxtb3JhbihhZl8yJGhoX2Zmcl8sbHcpCmFmXzIkbEkgPC0gbElbLDFdCgojIyMjQ2FsY3VsYXRlIExvY2FsIE1vcmFuIHB2YWx1ZSBhbmQgQWRkIGFzIGEgQ29sdW1uCiMjI0NyZWF0ZSBMb2NhbCBNb3JhbiBQLVZhbHVlCmFmXzIkcHZhbHVlPC1sSVssNV0KCiMjI0NyZWF0ZSBVbmRlciAuMDUgUHZhbHVlIER1bW15CgphZl8yJHB2YWx1ZV9kdW1teVthZl8yJHB2YWx1ZTw9LjA1XTwtMQphZl8yJHB2YWx1ZV9kdW1teVtpcy5uYShhZl8yJHB2YWx1ZV9kdW1teSldPC0wIAphZl8yJHB2YWx1ZV9kdW1teTwtYXMuZmFjdG9yKGFmXzIkcHZhbHVlX2R1bW15KQoKIyMjI0dyaWQgb2YgTWFwcwp0bWFwX21vZGUoInBsb3QiKQojIDFzdCBwbG90IG9mIGdlb3JnaWEKdDEgPC0gdG1fc2hhcGUoYWZfMikgKwogIHRtX3BvbHlnb25zKCJsRyIsIHRpdGxlID0gIkNsdXN0ZXJpbmciLCBwYWxldHRlID0gIlBSR24iLAogICAgICAgICAgICAgIHN0eWxlID0gImttZWFucyIsCiAgICAgICAgICAgICAgbGVnZW5kLmhpc3QgPSBUKSArCiAgdG1fbGF5b3V0KGZyYW1lID0gRiwgdGl0bGUgPSAiRy1zdGF0IG9mIEFmZm9yZGFibGUgSG91c2luZyIsICAKICAgICAgICAgICAgbGVnZW5kLmhpc3Quc2l6ZSA9IDAuNSwgCiAgICAgICAgICAgIGxlZ2VuZC5vdXRzaWRlID0gVCkgCiMgMm5kIHBsb3Qgb2YgZ2VvcmdpYTIKdDIgPC0gdG1fc2hhcGUoYWZfMikgKwogIHRtX3BvbHlnb25zKCJsSSIsIHRpdGxlID0gIkNsdXN0ZXJpbmciLCBwYWxldHRlID0gIlBSR24iLAogICAgICAgICAgICAgIHN0eWxlID0gImttZWFucyIsCiAgICAgICAgICAgICAgbGVnZW5kLmhpc3QgPSBUKSArCiAgdG1fbGF5b3V0KGZyYW1lID0gRiwgdGl0bGUgPSAiTW9yYW4ncyBJIG9mIEFmZm9yZGFibGUgSG91c2luZyIsICAKICAgICAgICAgICAgbGVnZW5kLmhpc3Quc2l6ZSA9IDAuNSwgCiAgICAgICAgICAgIGxlZ2VuZC5vdXRzaWRlID0gVCkgCgpsaWJyYXJ5KGdyaWQpCiMgb3BlbiBhIG5ldyBwbG90IHBhZ2UKZ3JpZC5uZXdwYWdlKCkKIyBzZXQgdXAgdGhlIGxheW91dApwdXNoVmlld3BvcnQodmlld3BvcnQobGF5b3V0PWdyaWQubGF5b3V0KDEsMikpKQojIHBsb3QgdXNpbmcgdGhlIHByaW50IGNvbW1hbmQKcHJpbnQodDEsIHZwPXZpZXdwb3J0KGxheW91dC5wb3MuY29sID0gMSwgaGVpZ2h0ID0gMTApKQpwcmludCh0MiwgdnA9dmlld3BvcnQobGF5b3V0LnBvcy5jb2wgPSAyLCBoZWlnaHQgPSAxMCkpCgojIyNDUkVBVEUgUExPVCBXSVRIIE9OTFkgTE9XIFBWQUxVRSBUUkFDVFMKCiMgdGhlIHRyYWN0IGluZGljZXMgYmVsb3cgd2hlcmUgcHZhbHVlIGlzIGxlc3MgdGhhbiAuMDUgCmFmXzIkcmNwX2NyclthZl8yJHJjcF9jcnI9PTFdPC0iUkVDQVBTIgphZl8yJHJjcF9jcnJbYWZfMiRyY3BfY3JyIT0xXTwtIk5vdCBSRUNBUFMiCmFmXzIuc3ViIDwtIGFmXzJbYWZfMiRwdmFsdWVfZHVtbXk9PTEsXQoKCiMjIyNJbnRlcmFhY3RpdmUgTWFwCnRtYXBfbW9kZSgndmlldycpCnRtX3NoYXBlKGFmXzIpICsKICB0bV9maWxsKCJ3aGl0ZSIscG9wdXAudmFycz1jKCJDb3VudHkiPSJjbnR5X25tIiwiVHJhY3QiPSJOQU1FTFNBIiwiUi9FQ0FQUyBTdGF0dXMiPSJyY3BfY3JyIiwiUG92ZXJ0eSBSYXRlICglKSI9InBjdF9wb3IiLCJNb3JhbiBJIj0ibEkiLCJHLVN0YXQiPSJsRyIsICJBZmZvcmRhYmxlIFVuaXRzIj0iaGhfZmZyXyIsICAicC12YWx1ZSI9InB2YWx1ZSIpKSArCiAgdG1fYm9yZGVycygiZ3JleSIsIGx3ZCA9IDAuNSkrdG1fc2hhcGUoYWZfMi5zdWIpK3RtX3BvbHlnb25zKCJsSSIsIHRpdGxlID0gIkNsdXN0ZXJpbmciLCBwYWxldHRlID0gIlBSR24iLAogICAgICAgICAgICAgIHN0eWxlID0gImttZWFucyIsCiAgICAgICAgICAgICAgbGVnZW5kLmhpc3QgPSBULHBvcHVwLnZhcnM9YygiQ291bnR5Ij0iY250eV9ubSIsIlRyYWN0Ij0iTkFNRUxTQSIsIlIvRUNBUFMgU3RhdHVzIj0icmNwX2NyciIsIlBvdmVydHkgUmF0ZSAoJSkiPSJwY3RfcG9yIiwiTW9yYW4gSSI9ImxJIiwiRy1TdGF0Ij0ibEciLCAiQWZmb3JkYWJsZSBVbml0cyI9ImhoX2Zmcl8iLCAgInAtdmFsdWUiPSJwdmFsdWUiKSkgKwogIHRtX2xheW91dChmcmFtZSA9IEYsIHRpdGxlID0gIk1vcmFuJ3MgSSBwLXZhbHVlczw9LjA1IiwgIAogICAgICAgICAgICBsZWdlbmQuaGlzdC5zaXplID0gMC41LCAKICAgICAgICAgICAgbGVnZW5kLm91dHNpZGUgPSBUKQoKdG1hcF9tb2RlKCJwbG90IikKCgoKYGBgCgpBZGQgYSBuZXcgY2h1bmsgYnkgY2xpY2tpbmcgdGhlICpJbnNlcnQgQ2h1bmsqIGJ1dHRvbiBvbiB0aGUgdG9vbGJhciBvciBieSBwcmVzc2luZyAqQ21kK09wdGlvbitJKi4KCldoZW4geW91IHNhdmUgdGhlIG5vdGVib29rLCBhbiBIVE1MIGZpbGUgY29udGFpbmluZyB0aGUgY29kZSBhbmQgb3V0cHV0IHdpbGwgYmUgc2F2ZWQgYWxvbmdzaWRlIGl0IChjbGljayB0aGUgKlByZXZpZXcqIGJ1dHRvbiBvciBwcmVzcyAqQ21kK1NoaWZ0K0sqIHRvIHByZXZpZXcgdGhlIEhUTUwgZmlsZSkuIAoKVGhlIHByZXZpZXcgc2hvd3MgeW91IGEgcmVuZGVyZWQgSFRNTCBjb3B5IG9mIHRoZSBjb250ZW50cyBvZiB0aGUgZWRpdG9yLiBDb25zZXF1ZW50bHksIHVubGlrZSAqS25pdCosICpQcmV2aWV3KiBkb2VzIG5vdCBydW4gYW55IFIgY29kZSBjaHVua3MuIEluc3RlYWQsIHRoZSBvdXRwdXQgb2YgdGhlIGNodW5rIHdoZW4gaXQgd2FzIGxhc3QgcnVuIGluIHRoZSBlZGl0b3IgaXMgZGlzcGxheWVkLgoK